home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tf.d64 / mult quiz.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  202 lines
  1. 1 PRINT"[147]":POKE53281,0:POKE53280,2:PRINT"[158]"
  2. 2 PRINT"                                   [146]"
  3. 3 PRINT"    [146]                               [146]"
  4. 4 PRINT"    [146]   MULTIPLICATION QUIZ         [146]"
  5. 5 PRINT"    [146]   (RANDOM OR SEQUENTIAL)      [146]"
  6. 6 PRINT"    [146]                               [146]"
  7. 7 PRINT"    [146]    BY BRUCE CORBETT           [146]"
  8. 8 PRINT"    [146]                               [146]"
  9. 9 PRINT"    [146]    PINCOURT,QUEBEC            [146]"
  10. 10 PRINT"    [146]                               [146]"
  11. 11 PRINT"    [146]                               [146]"
  12. 12 PRINT"                                   [146]"
  13. 13 PRINT"      HIT ANY KEY TO CONTINUE [146]  ":POKE198,0:WAIT 198,1
  14. 14 PRINT "[147]      H E L L O [146] ":PRINT:PRINT:PRINT
  15. 15 PRINT"   THIS IS A MULTIPLICATION QUIZ.  ":PRINT:PRINT
  16. 17 PRINT"   PLEASE TYPE YOUR FIRST NAME.":PRINT:PRINT:PRINT
  17. 20 PRINT"    THEN, HIT THE RETURN BUTTON."
  18. 30 POKE198,0:INPUT"      YOU ARE CALLED ";N$
  19. 32 PRINT:PRINT:PRINT
  20. 40 PRINT"[147]":PRINT""N$",PLEASE TYPE IN THE"
  21. 41 PRINT"   LEVEL  OF ARITHMATIC "
  22. 42 PRINT"   YOU WOULD LIKE TO TRY."
  23. 51 RESTORE
  24. 59 LET C=0
  25. 60 PRINT"  TYPE 1 FOR 1* MULTIPLICATION"
  26. 70 PRINT"       2 FOR 2* MULTIPLICATION"
  27. 80 PRINT"       3 FOR 3* MULTIPLICATION"
  28. 90 PRINT"       4 FOR 4* MULTIPLICATION"
  29. 100 PRINT"       5 FOR 5* MULTIPLICATION"
  30. 110 PRINT"       6 FOR 6* MULTIPLICATION"
  31. 120 PRINT"       7 FOR 7* MULTIPLICATION"
  32. 130 PRINT"       8 FOR 8* MULTIPLICATION "
  33. 140 PRINT"       9 FOR 9* MULTIPLICATION "
  34. 150 PRINT"      10 FOR 10* MULTIPLICATION0"
  35. 152 PRINT"      11 FOR 11* MULTIPLICATION"
  36. 154 PRINT"      12 FOR 12* MULTIPLICATION"
  37. 155 PRINT "   IF AT ANY TIME YOU WOULD LIKE TO STOP     ,PLEASE TYPE 999 [146]"
  38. 190 INPUT"   YOUR CHOICE IS[191][157][157][157]";Z$
  39. 191 IFZ$="[191]"THEN40
  40. 192 Z=VAL(Z$)
  41. 193 IFZ<1THEN40
  42. 194 IFZ>12THEN40
  43. 195 RA=0:WA=0
  44. 305 PRINT"[147] WOULD YOU PREFER A SEQUENCE "
  45. 306 PRINT"   (1,2,3 ETC) OR RANDOM NUMBERS?"
  46. 310 PRINT"      TYPE 'R' FOR RANDOM "
  47. 311 PRINT"      TYPE 'S' FOR SEQUENTIAL"
  48. 315 INPUT NU$
  49. 320 IF NU$="R"THEN GOTO 375
  50. 325 IF NU$="S"THEN C=C+1:GOTO375
  51. 330 GOTO315
  52. 350 C=INT(RND(1)*12)+1:GOTO 375
  53. 375 PRINT ,C"*"Z, "=??"
  54. 400 INPUT D: IF D=999 GOTO 10000
  55. 410 LET A=Z*C
  56. 420 IFA<>D THEN WA=WA+1: GOSUB2992
  57. 425 IFA<>D THEN GOSUB 3100
  58. 430 IFA<>D THEN GOSUB 3450
  59. 440 IFA=D THEN RA=RA+1: GOSUB4000
  60. 441 IF RA=12ANDWA=0 THEN GOSUB 4260
  61. 445 IF RA+WA=12 THEN GOTO 9000
  62. 446 IF RA+WA=12 THEN GOTO 9000
  63. 450 IFNU$="R"THEN 350
  64. 451 IFNU$="S"THEN 325
  65. 612 GOTO340
  66. 625 INPUT D:IFD=999 GOTO10000
  67. 2465 POKES+14,5:POKES+18,16:POKES+3,1:POKES+24,143:POKES+6,240
  68. 2470 POKES+4,65:FR=5389:FORT=1TO50
  69. 2475 FQ=FR+PEEK(S+27A9A*3.5
  70. 2480 HF=INT(FQ/256):LF=FQ-HF*256
  71. 2485 POKES+0,LF:POKES+1,HF:NEXT:POKES+24,0
  72. 2992 FORL=54272TO54296:POKEL,0:NEXT
  73. 2994 V=54296:W=54276:U=54277:S=54278:H=54273:L=54272
  74. 2996 POKEV,15:POKEU,16:POKES,128:POKEH,1:POKEL,195
  75. 2998 POKEW,33:FORT=1TO1400:NEXT:POKEW,32
  76. 2999 REM 2900-3000 IS FOR "NO" MUSIC
  77. 3000 Y=INT(4*RND(1))+1
  78. 3001 ONY GOTO3010,3020,3030,3040
  79. 3004 PRINT:PRINT:PRINT
  80. 3010 POKE53280,11:PRINT"  BAD GUESS. TRY AGAIN, ";N$"":PRINTC" * "Z"=??"
  81. 3011 PRINT
  82. 3012 INPUT"  YOUR SECOND GUESS IS";D:RETURN
  83. 3020 PRINT:PRINT:PRINT
  84. 3021 POKE53280,14:PRINT"  WRONG. GUESS AGAIN ":PRINTC "*" Z"=??"
  85. 3022 PRINT:PRINT
  86. 3023 INPUT" YOUR SECOND GUESS IS";D:RETURN
  87. 3030 PRINT:PRINT:PRINT
  88. 3031 POKE53280,13:PRINT"  "N$;" YOU CAN DO BETTER THAN THAT! "
  89. 3032 PRINT"  TRY AGAIN.":PRINT  C "*"Z"=??"
  90. 3033 INPUT " YOUR SECOND GUESS IS";D:RETURN
  91. 3040 PRINT:PRINT:PRINT
  92. 3041 POKE53280,13:PRINT" NOPE. WHAT'S YOUR NEXT BEST GUESS?":PRINTC "*"  Z"=??"
  93. 3042 PRINT:PRINT
  94. 3043 INPUT " YOUR SECOND GUESS IS";D:RETURN
  95. 3100 REM NO MUSIC #2
  96. 3150 FORL=54272TO54296:POKEL,0:NEXT
  97. 3160 V=54296:W=54276:U=54277:S=54278:H=54273:L=54272
  98. 3170 POKEV,15:POKEU,16:POKES,128:POKEH,1:POKEL,195
  99. 3175 POKEW,33: FORT=1TO450:NEXT:POKEW,32
  100. 3177 FORT=1TO250:NEXT
  101. 3180 POKEV,15:POKEU,16:POKES,128:POKEH,1:POKEL,195
  102. 3185 POKEW,33:FORT=1TO450:NEXT:POKEW,32
  103. 3200 POKE53280,10:PRINT" YOU HAVE ONE MORE CHANCE, ";N$
  104. 3201 PRINT:PRINT:PRINTC" * "Z"=??"
  105. 3202 INPUT "YOUR LAST GUESS IS ";D:RETURN
  106. 3449 REM NO MUSIC #3
  107. 3450 S=54272:FORL=0TO24:POKES+L,0:NEXT
  108. 3460 S=54272:FORL=0TO24:POKES+L,0:NEXT
  109. 3465 POKES+14,5:POKES+18,16:POKES+3,1:POKES+24,143:POKES+6,240
  110. 3470 POKES+4,65:FR=5389
  111. 3475 FORT=1TO50 :FQ=FR+PEEK(S+27)*3.5
  112. 3480 HF=INT(FQ/256):LF=FQ-HF*256
  113. 3485 POKES+0,LF:POKES+1,HF
  114. 3490 NEXT:POKES+24,0
  115. 3499 REM THIRD  WRONG TRY
  116. 3500 PRINT:PRINT:PRINT
  117. 3501 PRINT"[147]   THE ANSWER IS " A  ;:PRINT"," N$
  118. 3601 PRINT:PRINT
  119. 3602 PRINT  " NOW TRY THIS ONE.":RETURN
  120. 3999 REM YES MUSIC
  121. 4000 FORL=54272TO54296: POKEL,0:NEXT
  122. 4004 S=54272
  123. 4010 POKES+24,15:POKES+5,88:POKES+6,195:POKES+1,25:POKES,177
  124. 4012 POKES+4,33:FORT=1TO250:NEXT:POKES+4,32
  125. 4020 POKES+24,15:POKES+5,88:POKES+6,195:POKES+1,28: POKES+6,214
  126. 4022 POKES+4,33:FORT=1TO250:NEXT:POKES+4,32
  127. 4030 POKES+24,15:POKES+5,88:POKES+6,195:POKES+1,25:POKES,177
  128. 4032 POKES+4,33:FORT=1TO400:NEXT:POKES+4,32
  129. 4199 X=INT(RND(1)*5)+1
  130. 4200 ONX GOTO4210,4220,4230,4240,4250
  131. 4205 RESTORE
  132. 4210 PRINT"[147]":PRINT:PRINT:PRINT:PRINT
  133. 4211 POKE53280,2: PRINT" GOOD WORK. ";N$ "! NOW TRY THIS ONE."
  134. 4212 PRINT:PRINT:RETURN
  135. 4220 PRINT"[147]":PRINT:PRINT:PRINT:PRINT
  136. 4221 POKE53280,5:PRINT"YOU DID IT! NOW HOW ABOUT THIS ONE?"
  137. 4222 PRINT:PRINT:RETURN
  138. 4230 PRINT"[147]":PRINT:PRINT:PRINT:PRINT
  139. 4231 POKE53280,2:PRINT"  BRILLIANT! HERE IS THE NEXT ONE ":
  140. 4232 PRINT:PRINT:RETURN
  141. 4240 PRINT"[147]":PRINT:PRINT:PRINT:PRINT
  142. 4242 POKE53280,0:PRINT"  NICE. HERE IS ANOTHER. "
  143. 4243 PRINT:PRINT:RETURN
  144. 4250 PRINT"[147]":PRINT:PRINT:PRINT:PRINT
  145. 4252 POKE53280,4:PRINT"  RIGHT AGAIN! SEE IF YOU CAN "
  146. 4253 PRINT"  DO THIS ONE, ";N$
  147. 4255 PRINT:PRINT:RETURN
  148. 4260 GOSUB4305
  149. 4262 PRINT:PRINT:PRINT
  150. 4263 PRINT "  NOW TRY THIS ONE."
  151. 4264 PRINT:PRINT:RETURN
  152. 4305 S=54272:POKES+24,15:POKES,220:POKES+1,68:POKES+5,15:POKES+6,215
  153. 4310 POKES+7,120:POKES+8,100:POKES+12,15:POKES+13,215
  154. 4315 PRINT"[147]":V=53248:POKEV+21,1
  155. 4320 FORS1=12288TO12350:READQ1:POKES1,Q1:NEXT
  156. 4325 FORS2=12352TO12414:READQ2:POKES2,Q2:NEXT
  157. 4330 FORS3=12416TO12478:READQ3:POKES3,Q3:NEXT
  158. 4332 RESTORE
  159. 4335 POKEV+39,15:POKEV+1,68
  160. 4340 PRINT TAB(160)"         YOU GOT 12 IN A ROW!"
  161. 4345 P=192
  162. 4350 FORX=0TO347STEP3
  163. 4355 RX=INT(X/256):LX=X-RX*256
  164. 4360 POKEV,LX:POKEV+16,RX
  165. 4370 IFP=192THENGOSUB4500
  166. 4375 IFP=193THENGOSUB4700
  167. 4380 POKE2040,P:FORT=1TO60:NEXT
  168. 4385 P=P+1:IFP>194THENP=192
  169. 4390 NEXT
  170. 4395 RETURN
  171. 4400 DATA30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  172. 4401 DATA63,255,252,31,187,248,3,187,192,1,255,128,3,189,192,1,231,128,1,255,0
  173. 4402 DATA31,255,0,0,124,0,0,254,0,1,199,32,3,131,224,7,1,192,1,192,0,3,192,0
  174. 4403 DATA30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  175. 4404 DATA63,255,252,31,221,248,3,221,192,1,255,128,3,255,192,1,195,128,1,231,3
  176. 4405 DATA31,255,255,0,124,0,0,254,0,1,199,0,7,1,128,7,0,204,1,128,124,7,128,56
  177. 4406 DATA30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  178. 4407 DATA63,255,252,31,221,248,3,221,192,1,255,134,3,189,204,1,199,152,1,255,48
  179. 4408 DATA1,255,224,1,252,0,3,254,0
  180. 4409 DATA7,14,0,204,14,0,248,56,0,112,112,0,0,60,0,-1
  181. 4500 POKES+4,129:POKES+4,128:RETURN
  182. 4700 POKES+11,129:POKES+11,128:RETURN
  183. 9000 PRINT"[147]":PRINT:PRINT:PRINT:PRINT  "   YOU HAVE GOT CORRECT  :",RA;"[157] [146]"
  184. 9001 PRINT:PRINT
  185. 9002 PRINT"   YOU HAVE GOT WRONG  :",WA;"[157] [146]  "
  186. 9003 PRINT:PRINT:PRINT
  187. 9006 PRINT"   WOULD YOU LIKE TO TRY SOME MORE?[160]":PRINT:PRINT
  188. 9008 PRINT"  IF NOT,PLEASE TYPE (1).":PRINT:PRINT:PRINT"  IF SO PLEASE TYPE (2). "
  189. 9010 GOTO 10002
  190. 10000 PRINT "[147]FINISHED?" ;N$:PRINT"TYPE 1[146] TO END AND 2[146] TO START AGAIN."
  191. 10002 GET F$: IF F$="" THEN 10002
  192. 10003 IFF$="2"THEN59:IFF$<>"2"THEN10004
  193. 10004 IFF$<>"1"THEN10002:IFF$="1"THEN10006
  194. 10006 PRINT"[147]"
  195. 10008 PRINT"     I ENJOYED WORKING WITH YOU, ";N$
  196. 10010 PRINT:PRINT:PRINT:PRINT"        BYE FOR NOW!"
  197. 10011 END
  198. 20000 REM ----------------------------
  199. 20010 REM MODIFIED EVER SO SLIGHTLY BY
  200. 20020 REM   DAVID BRADLEY (01/15/85)
  201. 20030 REM ----------------------------
  202.